home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / GetDANames 1.2.cpt / GetDANames 1.2 / card_3640.txt < prev    next >
Text File  |  1989-02-26  |  3KB  |  116 lines
  1. -- card: 3640 from stack: in.2
  2. -- bmap block id: 4992
  3. -- flags: 0000
  4. -- background id: 2812
  5. -- name: Copy it to my stack
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 8002
  11. -- rect: left=256 top=237 right=259 bottom=424
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 21
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Copy 'suitcase' icon
  20. ----- HyperTalk script -----
  21. on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  22.   put "7024 Programming Stacks:¬© Copyright 1988, EDUCORP:XFCNs:GetDANames 1.2" into sourceStack
  23.   put the long name of this stack into destStack
  24.   delete first word of destStack
  25.   delete first character of destStack
  26.   delete last character of destStack
  27.   if sourceStack<>destStack then
  28.     set lockscreen to true
  29.     set lockmessages to true
  30.     push this card
  31.     go stack sourceStack
  32.     ResCopy sourceStack,destStack,"ICON","DA suitcase"
  33.     get the result
  34.     -- here is where you would copy more resources.
  35.     pop card
  36.     choose button tool
  37.     click at location of card button "Copy 'suitcase' icon"
  38.     domenu clear button
  39.     choose browse tool
  40.     set lockmessages to false
  41.     set lockscreen to false
  42.     if first char of it is "E" then
  43.       put char 4 of it into errorNumber
  44.       errorMessage errorNumber -- defined in stack script
  45.     else
  46.       answer "Resource copied successfully to this stack." with "OK"
  47.     end if
  48.   else
  49.     answer "Copy these buttons to your own stack!" with "OK"
  50.   end if
  51. end mouseUp
  52.  
  53.  
  54.  
  55.  
  56. -- part 3 (button)
  57. -- low flags: 00
  58. -- high flags: 8002
  59. -- rect: left=65 top=237 right=259 bottom=233
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 21
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Copy GetDANames XCMD
  68. ----- HyperTalk script -----
  69. on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  70.   put "7024 Programming Stacks:¬© Copyright 1988, EDUCORP:XFCNs:GetDANames 1.2" into sourceStack
  71.   put the long name of this stack into destStack
  72.   delete first word of destStack
  73.   delete first character of destStack
  74.   delete last character of destStack
  75.   if sourceStack<>destStack then
  76.     set lockscreen to true
  77.     set lockmessages to true
  78.     push this card
  79.     go stack sourceStack
  80.     ResCopy sourceStack,destStack,"XCMD","GetDANames"
  81.     get the result
  82.     -- here is where you would copy more resources.
  83.     pop card
  84.     choose button tool
  85.     click at location of card button "Copy GetDANames XCMD"
  86.     domenu clear button
  87.     choose browse tool
  88.     set lockmessages to false
  89.     set lockscreen to false
  90.     if first char of it is "E" then
  91.       put char 4 of it into errorNumber
  92.       errorMessage errorNumber -- defined in stack script
  93.     else
  94.       answer "Resource copied successfully to this stack." with "OK"
  95.     end if
  96.   else
  97.     answer "Copy these buttons to your own stack!" with "OK"
  98.   end if
  99. end mouseUp
  100.  
  101.  
  102.  
  103.  
  104. -- part 4 (button)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=304 top=263 right=298 bottom=381
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 21432 / 21432
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: New Button
  116.